﻿Imports System.ServiceModel
Imports SonOVB.Samples.ComicSyndication



Module Main

    Sub Main()

        Dim host = New ServiceHost(GetType(ComicService))
        host.Open()

        Console.WriteLine("Host is listening")


        For Each item In host.BaseAddresses
            Console.WriteLine(item.ToString)
        Next

        For Each c In host.ChannelDispatchers
            Console.WriteLine(c.Listener.Uri.ToString)

        Next

        Console.ReadLine()
    End Sub

End Module
